home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / a / a_funk / elektrnk.tos / ELEKTRNK / 5TONGEBR.GFA next >
Encoding:
Text File  |  1995-05-01  |  8.6 KB  |  216 lines
  1. bbs> Msg# 19234   To: ATARI @DL   From: DF7DL   Date: 06Aug89/1501
  2. Subject: 5-TONGEBER.LST (EINFACH)
  3. Bulletin ID: 068908DB0BQ
  4. Path: DB0AAA!DB0GV!DK0MAV!DB0KG!DB0BQ
  5. de DF7DL @ DB0BQ
  6.  
  7. '
  8. Rem Basic-Lader f}r
  9. Rem (C) 1989 by DL6HBO
  10. Rem gespeichert als LST-File zum Transfer als Text
  11. Rem Das Format ist f}r GFA-Basic V2.xx und V3.xx geeignet
  12. Cls
  13. PRINT"Basic-Programm-Konverter (C) 1989 by DL6HBO"
  14. PRINT"Basic-Data in PRG-File wandeln."
  15. A$=""
  16. B$="\*.PRG"
  17. C$=""+".PRG"
  18. Fileselct B$,C$,A$
  19. If Not Exist($$)
  20. Open "O"#1,A$
  21. Cs=0
  22. FOR N%=0 to 8853
  23. Read D$
  24.  
  25. D%=Val("&H"+D$)
  26. OUT #1,D%
  27. Cs=Cs+d%
  28. next n%
  29. Close #1
  30. Restore Checksum
  31. Read D$
  32. D%=Val("&H"+D$)
  33. If Cs=D%
  34. Print Cs;" Ist OK !! "
  35. Else
  36. Print Cs;" <> "0" !! Fehler in Datas"
  37. Endif
  38. Endif
  39. End
  40. DATA 60,1A,0,0,22,5E,0,0,0,0,0,0,52,64,0,0,0,0,0,0,0,0,0,0
  41. DATA 0,0,0,0,60,A,1B,45,1B,66,1B,76,0,0,0,0,2A,6F,0,4,4D,ED,1B,BA
  42. DATA 20,6D,0,C,D1,ED,0,14,D1,ED,0,1C,D0,FC,1,0,48,50,48,55,42,67,3F,3C
  43. DATA 0,4A,4E,41,28,6D,0,18,29,6D,0,10,A,DE,20,2D,0,14,4,80,0,0,0,0
  44. DATA 12,3A,0,B0,67,2,53,80,29,40,A,E6,20,2D,0,1C,4F,F4,8,0,4B,EC,31,FE
  45. DATA DB,FC,0,0,80,0,A0,0,50,88,43,EE,FF,94,23,48,0,2,4E,AE,E6,96,48,78
  46. DATA FF,FF,3F,3C,0,48,4E,41,4,80,0,0,40,0,29,40,0,6C,2F,0,3F,3C,0,48
  47. DATA 4E,41,29,40,0,68,26,40,29,40,0,58,D0,AC,0,6C,29,40,0,64,29,40,0,60
  48. DATA 41,FA,0,52,43,EC,0,70,72,8,20,18,D0,8D,22,C0,51,C9,FF,F8,48,EE,F8,0
  49. DATA 1,8,4E,AE,FF,46,41,EE,1,8,4C,D0,F8,0,4E,AE,F5,9C,48,7A,FF,32,3F,3C
  50. DATA 0,9,4E,41,5C,8F,70,64,41,EC,8,78,72,FF,30,C1,58,88,51,C8,FF,FA,29,4B
  51. DATA 0,5C,4E,AE,1,1C,4E,EE,1,DE,0,0,FF,FF,80,0,FF,FF,81,8,FF,FF,81,E
  52. DATA FF,FF,81,E,FF,FF,81,E,FF,FF,81,26,FF,FF,81,26,FF,FF,81,26,FF,FF,81,26
  53. DATA 2,E4,2,F0,7,4A,7,72,7,9A,7,C2,2,CC,3,E,4,E,6,E,7,E,10,E6
  54. DATA 2,F0,10,F2,11,1A,11,42,11,6A,11,92,11,AA,13,AA,12,AA,15,AA,8,F8,0,3
  55. DATA 4,84,4E,75,48,7A,FF,F6,3F,3C,0,26,4E,4E,5C,8F,4E,AE,E9,36,43,FA,FF,BA
  56. DATA 41,D4,70,19,24,4C,D4,D9,20,CA,51,C8,FF,F8,70,A,4E,AE,E7,22,39,6C,7,72
  57. DATA 2,F4,42,6C,7,4A,70,4E,4E,AE,E7,22,70,4D,4E,AE,E7,22,39,40,2,D8,70,64
  58. DATA 41,EC,3,E,72,9,30,FC,0,1,51,C9,FF,FA,30,BC,0,2,74,0,72,B,4E,AE
  59. DATA E7,70,39,6C,2,D8,11,9E,4E,75,70,65,61,6C,70,13,60,1E,8,B8,0,3,4,84
  60. DATA 4E,75,61,EE,4E,AE,FF,4A,48,7A,FF,F0,3F,3C,0,26,4E,4E,42,57,4E,41,FF,4E
  61. DATA 43,EC,2,E4,32,C0,41,FA,0,92,D0,C0,D0,40,D0,C0,70,0,10,18,32,C0,10,18
  62. DATA 32,C0,10,18,32,C0,4E,AE,FF,8C,72,0,D2,8C,30,3C,0,C8,4E,42,30,2C,7,72
  63. DATA 4E,75,72,11,C1,41,39,41,3,E,72,1,60,E,76,20,C1,43,39,43,3,E,72,1
  64. DATA 60,2,72,0,74,0,39,40,2,CC,39,41,2,D2,39,42,2,CE,4E,AE,FF,72,72,18
  65. DATA D2,8C,70,73,4E,42,30,2C,6,E,4E,75,39,40,11,92,4E,AE,FF,60,72,44,D2,8C
  66. DATA 70,73,4E,42,4E,75,43,EC,10,E6,32,C0,C,40,0,A,65,1E,C,40,0,7D,62,18
  67. DATA 41,FA,0,8,D0,C0,D0,40,D0,C0,70,0,10,18,32,C0,10,18,32,C0,10,18,32,C0
  68. DATA 4E,AE,FF,80,72,2C,D2,8C,30,3C,0,C8,4E,42,4E,75,0,1,0,2,1,1,2,1
  69. DATA 1,0,1,1,2,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,1
  70. DATA 0,3,5,0,5,5,0,0,1,1,2,1,0,10,7,1,2,1,0,0,0,0,0,0
  71. DATA 0,0,0,0,1,1,1,2,1,1,2,1,1,2,1,1,1,1,2,1,1,1,0,0
  72. DATA 0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,6,1,1,4,1,1,1,3
  73. DATA 1,2,1,1,4,2,1,8,1,1,0,0,0,0,0,0,1,1,1,9,1,1,1,1
  74. DATA 1,1,,,0,0,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  75. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  76. DATA 0,0,0,0,4,3,0,8,3,0,6,1,0,8,1,0,8,1,0,4,1,1,3,1
  77. DATA 1,0,5,0,1,1,1,0,5,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0
  78. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0
  79. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,1
  80. DATA 0,5,1,0,1,1,0,1,1,0,2,5,0,6,1,0,2,1,0,1,1,0,6,5
  81. DATA 0,0,0,0,0,1,1,0,1,0,2,1,0,2,1,1,1,1,1,0,0,0,0,0
  82. DATA 0,0,0,0,0,0,0,0,0,0,0,1,2,3,1,2,1,1,1,1,1,1,0,1
  83. DATA 1,0,1,2,70,13,61,34,7C,FF,61,40,3A,0,3E,3C,A,0,7C,F,61,36,52,47
  84. DATA 6B,1C,30,47,BC,10,67,8,60,F4,61,28,30,47,BC,10,56,CE,FF,F8,66,E4,41,EE
  85. DATA FFBBA,31,47,0,2,3C,5,61,12,70,11,3F,0,3F,3C,0,4,3F,3C,0,3,4E,4D
  86. DATA 5C,8F,4E,75,3F,6,3F,3C,0,B,4E,4D,58,8F,4E,75,48,6E,F0,1C,20,18,32,18
  87. DATA 24,0,34,1,2,42,3,FF,92,42,8,C0,0,1F,4E,75,6,41,2,0,64,A,52,80
  88. DATA 64,6,E2,90,E2,51,52,42,C,42,3,FF,62,14,2,41,FC,0,82,42,4A,82,6B,4
  89. DATA 8,80,0,1F,20,C0,30,C1,4E,75,4A,42,6A,6,42,98,42,58,4E,75,20,FC,7F,FF
  90. DATA FF,FF,30,FC,FF,FF,4E,75,20,3,32,4,24,5,4E,75,8,45,0,1F,60,4,8,42
  91. DATA 0,1F,3C,2,67,EA,4A,45,67,EC,9C,45,6A,8,C1,43,C3,44,C5,45,44,46,C,46
  92. DATA 0,10,65,28,C,46,0,20,64,E,2,46,0,F,EC,AB,38,3,42,43,48,43,60,1E
  93. DATA C,46,0,30,62,C0,2,46,0,F,EC,AB,48,43,38,3,76,0,60,A,48,44,38,3
  94. DATA EC,AB,EC,BC,48,44,B5,85,6B,E,D2,44,D1,83,64,6,E2,90,E2,51,52,42,4E,75
  95. DATA 92,44,91,83,64,8,8,42,0,1F,44,41,40,80,6B,E,67,18,D2,41,D1,80,5B,CA
  96. DATA FF,FA,53,42,6B,30,4E,75,4A,80,6C,EA,4A,42,6B,26,4E,75,30,1,67,20,48,40
  97. DATA 72,0,4,42,0,20,4A,80,6B,E4,D0,80,5B,CA,FF,FC,60,D8,C,42,3,FF,62,2
  98. DATA 4E,75,4A,42,6A,A,70,0,72,0,74,0,4E,75,0,0,48,50,41,FA,FF,FA,4A,18
  99. DATA 67,10,50,D0,70,FF,72,FF,24,3C,0,0,3,FF,20,5F,4E,75,70,1,20,5F,4E,EE
  100. DATA 0,2,70,0,4E,EE,0,2,4E,75,C1,43,C3,44,C5,45,4A,45,67,EE,4A,42,67,F0
  101. DATA 4A,85,6A,4,8,42,0,1F,94,45,6,42,2,0,E2,88,E2,51,2,4,0,FE,2A,3
  102. DATA 48,45,80,C5,3F,0,3C,0,3E,0,30,1,72,0,CC,C3,CE,C4,48,47,DC,47,64,6
  103. DATA 6,86,0,1,0,0,48,47,92,47,91,86,64,8,53,57,D2,44,D1,83,64,F8,80,C5
  104. DATA 69,5C,3F,0,3C,0,3E,0,30,1,72,0,CC,C3,CE,C4,48,47,DC,47,64,6,6,86
  105. DATA 0,1,0,0,48,47,92,47,91,86,64,8,53,57,D2,44,D1,83,64,F8,80,C5,69,4E
  106. DATA 3F,0,3C,0,3E,0,30,1,72,0,CC,C3,CE,C4,48,47,DC,47,64,6,6,86,0,1
  107. DATA 0,0,48,47,92,47,91,86,64,2,53,57,32,1F,20,1F,48,40,4E,EE,EA,60,3F,3C
  108. DATA FF,FF,2C,3,3E,4,9E,43,9D,45,64,6,4,85,0,1,0,0,92,47,91,86,48,40
  109. DATA 30,1,72,0,60,AE,3F,3C,FF,FF,60,D0,4A,42,67,1A,56,42,26,0,38,1,E2,8B
  110. DATA E2,54,E2,8B,E2,54,D2,44,D1,83,64,6,E2,90,E2,51,52,42,4E,75,2,44,0,F
  111. DATA D2,41,D1,80,26,0,D8,41,64,2,52,83,D2,41,D1,80,D2,41,D1,80,D2,44,D1,83
  112. DATA 4E,75,70,0,72,0,74,0,7C,0,3D,7C,FF,0,EA,A8,18,18,C,4,0,20,67,F8
  113. DATA C,4,0,2B,67,A,C,4,0,2D,66,6,8,C2,0,1F,18,18,C,4,0,2E,67,32
  114. DATA 4,4,0,30,C,4,0,9,62,0,0,EA,12,4,18,18,C,4,0,30,65,16,C,4
  115. DATA 0,39,62,10,C,80,F,FF,FF,FF,64,4,61,8E,60,E6,52,46,60,E2,C,4,0,2E
  116. DATA 66,1E,18,18,C,4,0,30,65,16,C,4,0,39,62,10,C,80,F,FF,FF,FF,64,6
  117. DATA 61,0,FF,6A,53,46,60,E2,C,4,0,45,67,6,C,4,0,65,66,58,18,18,C,4
  118. DATA 0,2B,67,A,C,4,0,2D,66,1A,8,C6,0,1F,18,18,C,4,0,30,65,6,C,4
  119. DATA 0,39,6F,8,53,48,8,86,0,1F,60,30,4,4,0,30,C,4,0,9,62,26,48,84
  120. DATA 7A,0,1A,18,4,5,0,30,C,5,0,9,62,E,C8,FC,0,A,D8,45,C,44,3,E8
  121. DATA 6F,E6,60,48,4A,86,6A,2,44,44,DC,44,53,88,34,3C,2,2F,4E,AE,EA,72,4A,46
  122. DATA 6B,12,53,46,6B,26,61,0,FE,CC,51,CE,FF,FA,4E,AE,EA,72,60,18,48,E7,E0,0
  123. DATA 61,22,46,46,61,0,FE,B6,51,CE,FF,FA,4C,DF,0,38,4E,AE,EA,D4,36,2E,EA,A8
  124. DATA 4A,3,67,2,74,FF,42,6E,EA,A8,4E,75,70,1,E2,98,72,0,24,3C,0,0,2,0
  125. DATA 4E,75,4A,42,6B,0,0,DE,34,3C,3,FF,72,FF,70,FF,41,FA,1,CC,43,E8,0,C
  126. DATA 76,20,4A,42,67,6,4A,82,6A,2,76,2D,10,C3,7C,0,C,42,3,FF,62,D4,C,42
  127. DATA 2,0,6B,1E,48,E7,E0,0,3E,2,61,B8,61,0,FE,4E,52,46,BE,42,64,F6,4C,DF
  128. DATA 0,38,3F,6,4E,AE,EA,D4,3C,1F,4A,42,67,0,0,8E,61,0,FE,32,53,46,C,42
  129. DATA 2,0,65,F4,C,42,2,3,67,8,E2,88,E2,51,52,42,60,F2,6,41,3,70,64,14
  130. DATA 52,80,C,80,9F,FF,FF,FF,65,A,20,3C,10,0,0,0,72,0,52,46,26,0,E9,9B
  131. DATA 2,3,0,F,0,3,0,30,10,C3,2,80,F,FF,FF,FF,78,0,61,0,FE,8,B1,C9
  132. DATA 66,E2,10,FC,0,45,76,2B,30,6,4A,46,6A,4,44,46,76,2D,10,C3,48,C6,8C,FC
  133. DATA 0,64,0,6,0,30,10,C6,42,46,48,46,8C,FC,0,A,0,6,0,30,10,C6,48,46
  134. DATA 0,6,0,30,10,C6,41,FA,0,FE,4E,75,70,0,72,0,74,0,7C,0,60,9E,32,3A
  135. DATA 1,1E,48,51,C,41,0,B,C,72,B,C,18,0,20,67,4,12,E8
  136. DATA FF,FF,C,30,0,30,10,FF,56,C9,FF,F8,4A,41,67,42,C,40,0,A,6E,4E,C,40
  137. DATA FF,FB,6D,48,4A,40,6A,18,12,FC,0,30,12,FC,0,2E,34,0,4
  138.  
  139.  
  140. bbs> Msg# 19496   To: ATARI @DL   From: DF7DL   Date: 09Aug89/1723
  141. Subject: 5-TONGEBER.LST (KLARTEXT)
  142. Bulletin ID: 098907DB0BQ
  143. Path: DB0AAA!DB0GV!DK0MAV!DB0BQ
  144. de DF7DL @ DB0BQ
  145.  
  146. Anfang:
  147. Xx=50
  148. Cls
  149. Clear
  150. Dim Z(15),Ff(13),X(2000)
  151. Print "-------   5 Tongeber  --------"
  152. Print ""
  153. Print " Bitte geben Sie die Frequenzen ein "
  154. For Ein=1 To 5
  155.   Print " Freuenz NR.",(Ein)," eingeben ------------<";
  156.   Input Z(Ein)
  157. Next Ein
  158. Weiter:
  159. For Ein=1 To 5
  160.   If Z(Ein)=1
  161.     Ff=1060
  162.   Endif
  163.   If Z(Ein)=2
  164.     Ff=1160
  165.   Endif
  166.   If Z(Ein)=3
  167.     Ff=1270
  168.   Endif
  169.   If Z(Ein)=4
  170.     Ff=1400
  171.   Endif
  172.   If Z(Ein)=5
  173.     Ff=1530
  174.   Endif
  175.   If Z(Ein)=6
  176.     Ff=1670
  177.   Endif
  178.   If Z(Ein)=7
  179.     Ff=1830
  180.   Endif
  181.   If Z(Ein)=8
  182.     Ff=2000
  183.   Endif
  184.   If Z(Ein)=9
  185.     Ff=2200
  186.   Endif
  187.   If Z(Ein)=10
  188.     Ff=2400
  189.   Endif
  190.   If Z(Ein)=11
  191.     Ff=2600
  192.   Endif
  193.   If Z(Ein)=12
  194.     Ff=2800
  195.   Endif
  196.   Print " Frequenz NR.";Ein;"->";Ff;"Hz"
  197.   X=Trunc(125000/Ff+0.5)
  198.   Sound 1,15,#X,3.5
  199. Next Ein
  200. Sond 1,1,1,1
  201. Alert 2,"Frequenzen wurden gesendet.|Wollen Sie die Frequenz|nochmal senden?",1,"WEITER|NEUE|ENDE",Aa
  202. Cls
  203. If Aa=1 Then
  204.   Goto Weiter
  205. Endif
  206. If Aa=2 Then
  207.   Goto Anfang
  208. Endif
  209. If Aa=3 The
  210.   System
  211. Endif
  212. ' so das war's
  213. ' wie geht's besser und kuerzer??
  214. ' vy 73 de Werner DF7DL
  215.  
  216.